home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 2 / Meeting Pearls Vol. II (1995)(GTI - Schatztruhe)[!].iso / Pearls / psion / src.doc / unsorted / xopl1 / invade.opl < prev   
Text File  |  1984-10-25  |  270b  |  18 lines
  1. PROC invade:
  2.   do:("Hello...")
  3.   do:("...again...")
  4.   do:("...and goodbye")
  5. ENDP
  6.  
  7. PROC do:(mess$)
  8.   topos:(100)   rem To background
  9.   pause 100
  10.   topos:(0)     rem To foreground
  11.   print mess$
  12.   pause 20
  13. ENDP
  14.  
  15. PROC topos:(pos%)
  16.   call($998d,pos%,0)
  17. ENDP
  18.